home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 1 / Amiga Tools.iso / rexx / maus_tausch.term < prev    next >
Text File  |  1994-06-06  |  4KB  |  125 lines
  1. /** $VER: Maus_Tausch.term 1.0 (14.3.93)
  2.  **
  3.  ** Fuehrt einen Auto-Login in die Maus durch.
  4.  **
  5.  ** Geschrieben von Olaf Thyssen
  6.  **       Internet: Olaf_Thyssen%kr.maus.de
  7.  **
  8.  ** Um dieses Programm zu verwenden, sollte man das
  9.  ** Telefonbuch oeffnen, den Telefonbucheintrag anwaehlen,
  10.  ** der dieses Programm benutzen soll, den Einstellungen
  11.  ** `Commands...' oeffnen und unter `Startup-/Login macro'
  12.  ** eintippen:
  13.  **
  14.  **    \a MausTausch
  15.  **
  16.  ** Nun bitte die `User/Password...' Einstellungen aendern,
  17.  ** sodass der zu verwendende Benutzername und das Benutzer-
  18.  ** kennwort korrekt eingetragen sind.
  19.  **
  20.  ** Die 'Path...' Einstellungen fuer Binaer-Upload und
  21.  ** Binaer-Download auf die eigenen Beduerfnisse abaendern
  22.  **
  23.  ** In der MausBox Ihres Vertrauens sollte die
  24.  ** ausfuehrliche Menuefuehrung aktiviert sein
  25.  **
  26.  ** Jetzt die Telefonbuchdatei abspeichern und diese Datei
  27.  ** in die Schublade "REXX:" kopieren.
  28.  **/
  29.  
  30.         /* Die Wartezeit auf 50 Sekunden setzen. */
  31. TIMEOUT 50
  32.  
  33.  
  34.         /* Auf die Frage nach dem Benutzernamen warten. */
  35. WAIT 'Sind Sie eingetragener Benutzer?'
  36.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  37. IF rc ~= 0 THEN EXIT
  38.         /* Eine Sekunde warten... */
  39. DELAY 1
  40.         /* Frage mit JA beantworten */
  41. SEND 'J'
  42.  
  43.         /* Auf die Frage nach dem Benutzernamen warten */
  44. WAIT 'Ihr Name'
  45.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  46. IF rc ~= 0 THEN EXIT
  47.         /* Eine Sekunde warten... */
  48. DELAY 1
  49.         /* Den Benutzernamen abschicken, einen Zeilenruecklauf
  50.          * hinzugeben.
  51.          */
  52. SEND '\u\r'
  53.  
  54.  
  55.         /* Auf die Frage nach dem Benutzerkennwort warten. */
  56. WAIT 'Ihr Password'
  57.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  58. IF rc ~= 0 THEN EXIT
  59.         /* Eine Sekunde warten... */
  60. DELAY 1
  61.         /* Das Benutzerkennwort abschicken, einen Zeilenruecklauf
  62.          * hinzugeben.
  63.          */
  64. SEND '\p\r'
  65.  
  66.  
  67. TIMEOUT 20
  68.         /* Auf die Aufforderung die Leertaste zu druecken warten. */
  69. WAIT '- Weiter mit Leertaste -'
  70.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  71. IF rc ~= 0 THEN EXIT
  72.         /* Den ASCII Wert 32 (SPACE) abschicken */
  73. SEND Byte 32
  74.  
  75.  
  76.         /** Auf das Haupmenue warten, ACHTUNG
  77.          ** es muss die ausfuehrliche (lange) Kommandos in
  78.          ** der MausBox eingestellt sein */
  79. WAIT 'Hauptmen'
  80.         /* Eine Sekunde warten... */
  81. DELAY 1
  82.         /* ein 'T' fuer MausTausch senden */
  83. SEND 'T'
  84.  
  85.         /* das zu verwendene Protokoll eingeben */
  86. WAIT 'Protokoll:'
  87.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  88. IF rc ~= 0 THEN EXIT
  89.         /* 'Z' fuer ZModem senden
  90. SEND 'Z'
  91.  
  92.  
  93.         /* Zeit auf 'unendlich' stellen */
  94. TIMEOUT 9999
  95.         /* warten auf den Start der INFILE.LZH Uebertragung */
  96. WAIT 'Protokoll startet:'
  97.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  98. IF rc ~= 0 THEN EXIT
  99.         /* INFILE.LZH senden
  100.            Pfad-Angabe bitte auf eigene Beduerfnisse aendern */
  101. SENDFILE 'DH1:DFUe/Matiga/Infile/INFILE.LZH'
  102.  
  103.  
  104.         /* warten auf den Start der OUTFILE.LZH Uebertragung */
  105. WAIT 'Protokoll startet:'
  106.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  107. IF rc ~= 0 THEN EXIT
  108.         /* Empfangen des OUTFILE.LZH, es wird der Pfad der Paths...
  109.            Einstellung verwendet */
  110. RECEIVEFILE MODE Binary
  111.  
  112.         /* 'normales' Timeout einstellen */
  113. TIMEOUT 20
  114.         /* Auf die Aufforderung die Leertaste zu druecken warten. */
  115. WAIT '- Weiter mit Leertaste -'
  116.         /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
  117. IF rc ~= 0 THEN EXIT
  118.         /* Den ASCII Wert 32 (SPACE) abschicken */
  119. SEND Byte 32
  120.  
  121.         /* Box verlassen durch senden von 'S' fuer Schluss mit
  122.            anschliessenden 'J' fuer JA (Es wird von der Box vorher
  123.            nocheinmal nachgefragt) */
  124. SEND 'sj'
  125.